module mtrx_mod
 implicit none
 public

 type Mtrx
  real, dimension(:,:), pointer:: m => NULL();
  integer:: nr;  ! number of rows
  integer:: nc;  ! number of columns
 end type Mtrx

end module mtrx_mod

